module perf_mod

!-----------------------------------------------------------------------
!
! Purpose: Sbug for performance monitoring subroutines
!
! Author:  E. Kluzek 2022 (from cime/src/share/timing version)
!
!-----------------------------------------------------------------------

!-----------------------------------------------------------------------
!- Uses ----------------------------------------------------------------
!-----------------------------------------------------------------------
!!-----------------------------------------------------------------------
!- module boilerplate --------------------------------------------------
!-----------------------------------------------------------------------
   implicit none
   private                   ! Make the default access private
   save

!-----------------------------------------------------------------------
! Public interfaces ----------------------------------------------------
!-----------------------------------------------------------------------
   public t_startf
   public t_stopf

!-----------------------------------------------------------------------
! Private data ---------------------------------------------------------
!-----------------------------------------------------------------------

!=======================================================================
contains
!=======================================================================

!
!========================================================================
!
   subroutine t_startf(event, handle)
!-----------------------------------------------------------------------
! Purpose: Start an event timer stub
! Author: E. Kluzek
!-----------------------------------------------------------------------
!---------------------------Input arguments-----------------------------
!
   ! performance timer event name
   character(len=*), intent(in) :: event
!
!---------------------------Input/Output arguments----------------------
!
   ! GPTL event handle
   integer,  optional :: handle
!
!---------------------------Local workspace-----------------------------
!
!
   return
   end subroutine t_startf
!
!========================================================================
!
   subroutine t_stopf(event, handle)
!-----------------------------------------------------------------------
! Purpose: Stop an event timer stub
! Author: E. Kluzek
!-----------------------------------------------------------------------
!---------------------------Input arguments-----------------------------
!
   ! performance timer event name
   character(len=*), intent(in) :: event
!
!---------------------------Input/Output arguments----------------------
!
   ! GPTL event handle
   integer, optional :: handle
!
!---------------------------Local workspace-----------------------------
!
!-----------------------------------------------------------------------
!
   return
   end subroutine t_stopf
!

!===============================================================================

end module perf_mod
